
    '-------------------------------------
    '   Jʒu@pϊ
    '-------------------------------------

	https://ateitexe.com/change-alphabet-integer/

	lAt@xbgJo[ł悤ɁAϊO̕ϐVariantŐ錾ĂĂB

	Dim va As Variant
	DIM c_va As Variant

	va = "AA" '̃At@xbgorl
	c_va = CNumAlp(va)


    '-------------------------------------
    '   Jʒu@pϊ
    '-------------------------------------

	At@xbgꍇ

	͂ƊȒPBRangě`ŁA.ColumnŗԍɂĂ邾B

    '-------------------------------------
    '   Jʒu@pϊ ̂Q
    '-------------------------------------
    Dim colstrSTA As String     'pϊJ tJnp
    colstrSTA = Cells(1, ActiveCell.Column).Address(True, False)
    colstrSTA = Left(colstrSTA, InStr(colstrSTA, "$") - 1)


     'Jʒu{1𐔎pϊ

      Dim cilFreez As String
      cilFreez = Cells(1, ActiveCell.Column + 1).Address(True, False)
       cilFreez = Left(cilFreez, InStr(cilFreez, "$") - 1)ft(cilFreez, InStr(cilFreez, "$") - 1)

